home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip
/
MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf
/
ARexx
/
Modular
/
ConWin.mod
< prev
next >
Wrap
Text File
|
1993-08-19
|
978b
|
19 lines
/* --------- Open a console window --------- */
ConWin:
wstr = 'con:'arg(1)'/'arg(2)'/'arg(3)'/'arg(4)'/Modular ARexx/CLOSE'
op = open('s',wstr,'w') ; tab = '09'x ; lf = '0A'x
if wstr ~= 0 then do
a.1 = lf tab'
A Modular Approach to Programming in ARexx
'
a.2 = lf' As far as possible, each section of the program you are now'
a.3 = ' using has been stored as a separate callable function. So :'
a.4 = lf || tab'A The program itself is small.'
a.5 = tab'B There are several separate files.'
a.6 = tab'C Those separate files are called by'
a.7 = tab' this progam when needed, and may also'
a.8 = tab' be called by other programs (as they'
a.9 = tab' stand, or modified as necessary).'
a.10 = lf || tab || 'Click on the Close gadget to continue ... '
end
do i = 1 to 9 ; w = writeln('s',a.i) ; end
w = writech('s',a.10) ; c = readch('s') ; cl = close('s')
return